How-To PowerBuilder (exgrid)

700	How can I filter the check-boxes (method 1) OleObject oGrid,var_Column,var_Editor,var_Items oGrid = ole_1.Object var_Column = oGrid.Columns.Add("Check") var_Editor = var_Column.Editor var_Editor.EditType = 19 var_Editor.Option(17,1) var_Column.DisplayFilterButton = true var_Column.DisplayFilterPattern = false var_Column.FilterType = 6 var_Items = oGrid.Items var_Items.AddItem(true) var_Items.AddItem(true) var_Items.AddItem(false) var_Items.AddItem(true) var_Items.AddItem(false) var_Items.AddItem(true) var_Items.AddItem(false)
699	How can add a button to control /begin event ButtonClick(long Item,long ColIndex,any Key) - Occurs when user clicks on the cell's button./ /* oGrid = ole_1.Object MessageBox("Information",string( "ButtonClick" )) MessageBox("Information",string( oGrid.Items.CellCaption(Item,ColIndex) )) MessageBox("Information",string( String(Key) )) / /end event ButtonClick*/ OleObject oGrid,var_Column,var_Column1,var_Columns,var_Editor,var_Editor1,var_Items any h,s oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.DefaultItemHeight = 22 oGrid.HeaderHeight = 22 oGrid.Appearance = 0 oGrid.DrawGridLines = -2 oGrid.ScrollBySingleLine = false oGrid.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") oGrid.HTMLPicture("pic1","c:\exontrol\images\auction.gif") var_Columns = oGrid.Columns var_Column = var_Columns.Add("Type") var_Column.Width = 48 var_Column.Def(17,1) var_Column1 = var_Columns.Add("Appearance") var_Column1.Def(17,1) var_Column1.Alignment = 1 var_Column1.HeaderAlignment = 1 var_Items = oGrid.Items h = var_Items.AddItem("Items.<b>CellHasButton</b> property") var_Items.CellValue(h,1,"Button <b>1</b>") var_Items.CellHasButton(h,1,true) h = var_Items.AddItem("Items.<b>CellButtonAutoWidth</b> property") var_Items.CellValue(h,1," Button <b>2</b> ") var_Items.CellHasButton(h,1,true) var_Items.CellButtonAutoWidth(h,1,true) h = var_Items.AddItem("Items.<b>CellHasButton</b> property") var_Items.CellValue(h,1," <img>2</img>Button <b>3</b> ") var_Items.CellHasButton(h,1,true) var_Items.CellButtonAutoWidth(h,1,true) h = var_Items.AddItem("Items.<b>CellHasButton</b> property") var_Items.ItemHeight(h,32) var_Items.CellValue(h,1," <img>2</img>Button <b>4</b> <img>pic1</img> ") var_Items.CellHasButton(h,1,true) var_Items.CellButtonAutoWidth(h,1,true) h = var_Items.AddItem("Items.<b>CellHasButton</b> in splitted cells") var_Items.CellValue(h,1," Button <b>5.1</b> ") var_Items.CellHasButton(h,1,true) var_Items.CellButtonAutoWidth(h,1,true) s = var_Items.SplitCell(h,1) var_Items.CellValue(0,s," Button <b>5.2</b> ") var_Items.CellHasButton(0,s,true) var_Items.CellButtonAutoWidth(0,s,true) h = var_Items.AddItem("Column.<b>Editor</b>, Items.<b>CellEditor</b>") var_Items.CellValue(h,1,"Visible when clicking the cell") var_Editor = var_Items.CellEditor(h,1) var_Editor.EditType = 1 var_Editor.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1") var_Editor.AddButton("B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3") var_Editor.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4") var_Editor.ButtonWidth = 24 h = var_Items.AddItem("Column.<b>Editor</b>, Items.<b>CellEditor</b>") var_Items.CellValue(h,1,3) var_Editor1 = var_Items.CellEditor(h,1) var_Editor1.EditType = 6 var_Editor1.AddItem(1,"Flag 1") var_Editor1.AddItem(2,"Flag 2") var_Editor1.AddItem(4,"Flag 4") var_Editor1.AddItem(8,"Flag 8") var_Editor1.AddButton("C1",1,0,"This is a bit of text that's shown when the cursor hovers the button C1") var_Editor1.AddButton("C3",2,0,"This is a bit of text that's shown when the cursor hovers the button C2") var_Editor1.AddButton("C4",1,0,"This is a bit of text that's shown when the cursor hovers the button C3") var_Editor1.ButtonWidth = 24 oGrid.EndUpdate()
698	The item is not getting selected when clicking the cell's checkbox. What should I do /begin event CellStateChanged(long Item,long ColIndex) - Fired after cell's state has been changed./ /* oGrid = ole_1.Object oGrid.Items.SelectItem(Item,true) / /end event CellStateChanged*/ OleObject oGrid,var_Items oGrid = ole_1.Object oGrid.Columns.Add("Check").Def(0,true) var_Items = oGrid.Items var_Items.AddItem(0) var_Items.AddItem(1) var_Items.AddItem(2) var_Items.AddItem(3)
697	Is it possible to limit the height of the item while resizing /begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection./ /* oGrid = ole_1.Object oGrid.Items.ItemMinHeight(Item,18) oGrid.Items.ItemMaxHeight(Item,72) / /end event AddItem*/ OleObject oGrid,var_Items oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.ItemsAllowSizing = -1 oGrid.ScrollBySingleLine = false oGrid.BackColorAlternate = RGB(240,240,240) oGrid.Columns.Add("Names") var_Items = oGrid.Items var_Items.AddItem("Mantel") var_Items.AddItem("Mechanik") var_Items.AddItem("Motor") var_Items.AddItem("Murks") var_Items.AddItem("Märchen") var_Items.AddItem("Möhren") var_Items.AddItem("Mühle") oGrid.Columns.Item(0).SortOrder = 1 oGrid.EndUpdate()
696	Is it possible to copy the hierarchy of the control using the GetItems method OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.LinesAtRoot = -1 oGrid.Columns.Add("Def") var_Items = oGrid.Items h = var_Items.AddItem("Root") var_Items.InsertItem(h,,"Child 1") var_Items.InsertItem(h,,"Child 2") oGrid.PutItems(oGrid.GetItems(-1))
695	Is it possible to auto-numbering the children items but still keeps the position after filtering OleObject oGrid,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Column6,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.LinesAtRoot = -1 var_Column = oGrid.Columns.Add("Items") var_Column.DisplayFilterButton = true var_Column.FilterType = 240 var_Column.Filter = "Child 2" var_Column1 = oGrid.Columns.Add("Pos.1") var_Column1.FormatColumn = "1 ropos ''" var_Column1.Position = 0 var_Column1.Width = 32 var_Column1.AllowSizing = false var_Column2 = oGrid.Columns.Add("Pos.2") var_Column2.FormatColumn = "1 ropos ':'" var_Column2.Position = 1 var_Column2.Width = 32 var_Column2.AllowSizing = false var_Column3 = oGrid.Columns.Add("Pos.3") var_Column3.FormatColumn = "1 ropos ':\|A-Z'" var_Column3.Position = 2 var_Column3.Width = 32 var_Column3.AllowSizing = false var_Column4 = oGrid.Columns.Add("Pos.4") var_Column4.FormatColumn = "1 ropos '\|A-Z\|'" var_Column4.Position = 3 var_Column4.Width = 32 var_Column4.AllowSizing = false var_Column5 = oGrid.Columns.Add("Pos.5") var_Column5.FormatColumn = "'<font Tahoma;7>' + 1 ropos '-<b>\|\|A-Z'" var_Column5.Def(17,1) var_Column5.Position = 4 var_Column5.Width = 32 var_Column5.AllowSizing = false var_Column6 = oGrid.Columns.Add("Pos.6") var_Column6.FormatColumn = "'<b>'+ 1 ropos '</b>:<fgcolor=FF0000>\|A-Z\|'" var_Column6.Def(17,1) var_Column6.Position = 5 var_Column6.Width = 48 var_Column6.AllowSizing = false var_Items = oGrid.Items h = var_Items.AddItem("Root 1") var_Items.InsertItem(h,,"Child 1") var_Items.InsertItem(h,,"Child 2") var_Items.ExpandItem(h,true) h = var_Items.AddItem("Root 2") var_Items.InsertItem(h,,"Child 1") var_Items.InsertItem(h,,"Child 2") oGrid.ApplyFilter() oGrid.EndUpdate()
694	Is it possible to auto-numbering the children items too OleObject oGrid,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.LinesAtRoot = -1 oGrid.Columns.Add("Items") var_Column = oGrid.Columns.Add("Pos.1") var_Column.FormatColumn = "1 rpos ''" var_Column.Position = 0 var_Column.Width = 32 var_Column.AllowSizing = false var_Column1 = oGrid.Columns.Add("Pos.2") var_Column1.FormatColumn = "1 rpos ':'" var_Column1.Position = 1 var_Column1.Width = 32 var_Column1.AllowSizing = false var_Column2 = oGrid.Columns.Add("Pos.3") var_Column2.FormatColumn = "1 rpos ':\|A-Z'" var_Column2.Position = 2 var_Column2.Width = 32 var_Column2.AllowSizing = false var_Column3 = oGrid.Columns.Add("Pos.4") var_Column3.FormatColumn = "1 rpos '\|A-Z\|'" var_Column3.Position = 3 var_Column3.Width = 32 var_Column3.AllowSizing = false var_Column4 = oGrid.Columns.Add("Pos.5") var_Column4.FormatColumn = "'<font Tahoma;7>' + 1 rpos '-<b>\|\|A-Z'" var_Column4.Def(17,1) var_Column4.Position = 4 var_Column4.Width = 32 var_Column4.AllowSizing = false var_Column5 = oGrid.Columns.Add("Pos.6") var_Column5.FormatColumn = "'<b>'+ 1 rpos '</b>:<fgcolor=FF0000>\|A-Z\|'" var_Column5.Def(17,1) var_Column5.Position = 5 var_Column5.Width = 48 var_Column5.AllowSizing = false var_Items = oGrid.Items h = var_Items.AddItem("Root 1") var_Items.InsertItem(h,,"Child 1") var_Items.InsertItem(h,,"Child 2") var_Items.ExpandItem(h,true) h = var_Items.AddItem("Root 2") var_Items.InsertItem(h,,"Child 1") var_Items.InsertItem(h,,"Child 2") oGrid.EndUpdate()
693	Is it possible to cancel or discard the values during validation /begin event ValidateValue(long Item,long ColIndex,any NewValue,boolean Cancel) - Occurs before user changes the cell's value./ /* oGrid = ole_1.Object MessageBox("Information",string( "ValidateValue" )) MessageBox("Information",string( String(NewValue) )) MessageBox("Information",string( "Change the Cancel parameter for ValidateValue event to accept/decline the newly value. " )) MessageBox("Information",string( "The DiscardValidateValue restores back the previously values." )) oGrid.DiscardValidateValue() / /end event ValidateValue*/ OleObject oGrid,var_Items oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.CauseValidateValue = -1 oGrid.Columns.Add("Date").Editor.EditType = 7 oGrid.Columns.Add("Text").Editor.EditType = 1 var_Items = oGrid.Items var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text") var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text") var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text") var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text") var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text") oGrid.EndUpdate()
692	Is it possible to validate the values of the cells only when user leaves the focused item /begin event ValidateValue(long Item,long ColIndex,any NewValue,boolean Cancel) - Occurs before user changes the cell's value./ /* oGrid = ole_1.Object MessageBox("Information",string( "ValidateValue" )) MessageBox("Information",string( String(NewValue) )) MessageBox("Information",string( "Change the Cancel parameter for ValidateValue event to accept/decline the newly value. " )) Cancel = true MessageBox("Information",string( "You can not leave the item/record until the Cancel is False." )) / /end event ValidateValue*/ OleObject oGrid,var_Items oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.CauseValidateValue = 1 oGrid.Columns.Add("Date").Editor.EditType = 7 oGrid.Columns.Add("Text").Editor.EditType = 1 var_Items = oGrid.Items var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text") var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text") var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text") var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text") var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text") oGrid.EndUpdate()
691	We would like to validate the values of the cells. Is it possible /begin event ValidateValue(long Item,long ColIndex,any NewValue,boolean Cancel) - Occurs before user changes the cell's value./ /* oGrid = ole_1.Object MessageBox("Information",string( "ValidateValue" )) MessageBox("Information",string( String(NewValue) )) MessageBox("Information",string( "Change the Cancel parameter for ValidateValue event to accept/decline the newly value." )) Cancel = true MessageBox("Information",string( "You can not leave the cell until the Cancel is False." )) / /end event ValidateValue*/ OleObject oGrid,var_Items oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.CauseValidateValue = -1 oGrid.Columns.Add("Date").Editor.EditType = 7 oGrid.Columns.Add("Text").Editor.EditType = 1 var_Items = oGrid.Items var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text") var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text") var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text") var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text") var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text") oGrid.EndUpdate()
690	Is there any way to add auto-numbering OleObject oGrid,var_Column,var_Columns,var_Items oGrid = ole_1.Object var_Columns = oGrid.Columns var_Columns.Add("Items") var_Column = var_Columns.Add("Pos") var_Column.FormatColumn = "1 pos ''" var_Column.Position = 0 var_Items = oGrid.Items var_Items.AddItem("Item 1") var_Items.AddItem("Item 2") var_Items.AddItem("Item 3")
689	Does your control supports multiple lines tooltip OleObject oGrid oGrid = ole_1.Object oGrid.HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif") oGrid.ToolTipDelay = 1 oGrid.Columns.Add("tootip").ToolTip = "<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, icons and pictures.<br><br><br><img>pic1</img> picture ... <br><br>"
688	How can I prevent highlighting the column from the cursor - point OleObject oGrid oGrid = ole_1.Object oGrid.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZLhEZRQiqDYtRDFQBSDDcPw/EaRZohGaYJgEgI=") oGrid.Background(32,16777216 /0x1000000/) oGrid.Columns.Add("S").Width = 32 oGrid.Columns.Add("Level 1").LevelKey = 1 oGrid.Columns.Add("Level 2").LevelKey = 1 oGrid.Columns.Add("Level 3").LevelKey = 1 oGrid.Columns.Add("E1").Width = 32 oGrid.Columns.Add("E2").Width = 32 oGrid.Columns.Add("E3").Width = 32 oGrid.Columns.Add("E4").Width = 32
687	Is it possible display numbers in the same format no matter of regional settings in the control panel OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("Def").Def(17,1) var_Items = oGrid.Items h = var_Items.AddItem(100000.27) var_Items.FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default positive)'") h = var_Items.AddItem(100000.27) var_Items.FormatCell(h,0,"(value format '2\|.\|3\|,\|1\|1')") h = var_Items.AddItem(-100000.27) var_Items.FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default negative)'") h = var_Items.AddItem(-100000.27) var_Items.FormatCell(h,0,"(value format '2\|.\|3\|,\|1\|1')") oGrid.EndUpdate()
686	Is it possible to add a 0 for numbers less than 1 instead .7 to show 0.8 OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("Def").Def(17,1) var_Items = oGrid.Items h = var_Items.AddItem(0.27) var_Items.FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default)'") h = var_Items.AddItem(0.27) var_Items.FormatCell(h,0,"(value format '\|\|\|\|\|0') + ' <fgcolor=808080>(Display no leading zeros)'") oGrid.EndUpdate()
685	How can I specify the format for negative numbers OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("Def").Def(17,1) var_Items = oGrid.Items h = var_Items.AddItem(-100000.27) var_Items.FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default)'") h = var_Items.AddItem(-100000.27) var_Items.FormatCell(h,0,"(value format '\|\|\|\|1') + ' <fgcolor=808080>(Negative sign, number; for example, -1.1)'") oGrid.EndUpdate()
684	Is it possible to change the grouping character when display numbers OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("Def").Def(17,1) var_Items = oGrid.Items h = var_Items.AddItem(100000.27) var_Items.FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default)'") h = var_Items.AddItem(100000.27) var_Items.FormatCell(h,0,"(value format '\|\|\|-') + ' <fgcolor=808080>(grouping character is -)'") oGrid.EndUpdate()
683	How can I display numbers with 2 digits in each group OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("Def").Def(17,1) var_Items = oGrid.Items h = var_Items.AddItem(100000.27) var_Items.FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default)'") h = var_Items.AddItem(100000.27) var_Items.FormatCell(h,0,"(value format '\|\|2') + ' <fgcolor=808080>(grouping by 2 digits)'") oGrid.EndUpdate()
682	How can I display my numbers using a different decimal separator OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("Def").Def(17,1) var_Items = oGrid.Items h = var_Items.AddItem(100.27) var_Items.FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default)'") h = var_Items.AddItem(100.27) var_Items.FormatCell(h,0,"(value format '\|;') + ' <fgcolor=808080>(decimal separator is <b>;</b>)'") oGrid.EndUpdate()
681	Is it possible to display the numbers using 3 (three) digits OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("Def").Def(17,1) var_Items = oGrid.Items h = var_Items.AddItem(100.27) var_Items.FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default)'") h = var_Items.AddItem(100.27) var_Items.FormatCell(h,0,"(value format '3') + ' <fgcolor=808080>(3 digits)'") h = var_Items.AddItem(100.27) var_Items.FormatCell(h,0,"(value format 2) + ' <fgcolor=808080>(2 digits)'") h = var_Items.AddItem(100.27) var_Items.FormatCell(h,0,"(value format 1) + ' <fgcolor=808080>(1 digit)'") oGrid.EndUpdate()
680	Is there any option to show the tooltip programmatically /begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse./ /* oGrid = ole_1.Object oGrid.ShowToolTip(String(oGrid.ItemFromPoint(-1,-1,c,hit)),"","8","8") / /end event MouseMove*/ OleObject oGrid,var_Items oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("Def") var_Items = oGrid.Items var_Items.AddItem("Item 1") var_Items.AddItem("Item 2") var_Items.AddItem("Item 3") oGrid.EndUpdate()
679	How can I specify the column's width to be the same for all columns OleObject oGrid,var_Columns oGrid = ole_1.Object var_Columns = oGrid.Columns var_Columns.Add("A") var_Columns.Add("B") var_Columns.Add("C") oGrid.DrawGridLines = -1 oGrid.ColumnAutoResize = true
678	How can I set the column's width to my desired width OleObject oGrid,var_Columns oGrid = ole_1.Object oGrid.ColumnAutoResize = false var_Columns = oGrid.Columns var_Columns.Add("A").Width = 128 var_Columns.Add("B").Width = 128 oGrid.DrawGridLines = -1
677	Is it possible to format numbers OleObject oGrid,var_Column,var_Column1,var_Column2,var_Column3,var_Columns,var_Items any h,h1 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.MarkSearchColumn = false var_Columns = oGrid.Columns var_Columns.Add("Name") var_Column = var_Columns.Add("A") var_Column.SortType = 1 var_Column.AllowSizing = false var_Column.Width = 36 var_Column.FormatColumn = "len(value) ? value + ' +'" var_Column.Editor.EditType = 4 var_Column1 = var_Columns.Add("B") var_Column1.SortType = 1 var_Column1.AllowSizing = false var_Column1.Width = 36 var_Column1.FormatColumn = "len(value) ? value + ' +'" var_Column1.Editor.EditType = 4 var_Column2 = var_Columns.Add("C") var_Column2.SortType = 1 var_Column2.AllowSizing = false var_Column2.Width = 36 var_Column2.FormatColumn = "len(value) ? value + ' ='" var_Column2.Editor.EditType = 4 var_Column3 = var_Columns.Add("A+B+C") var_Column3.SortType = 1 var_Column3.Width = 64 var_Column3.ComputedField = "dbl(%1)+dbl(%2)+dbl(%3)" var_Column3.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2\|.\|3\|,\|1' ) : (dbl(value)>0 ? '<fgcolor=0000FF>+'+(value format '2\|.\|3\|,' ): '0.00') )" var_Column3.Def(17,1) var_Items = oGrid.Items h = var_Items.AddItem("Root") var_Items.CellValueFormat(h,4,2) h1 = var_Items.InsertItem(h,,"Child 1") var_Items.CellValue(h1,1,7) var_Items.CellValue(h1,2,3) var_Items.CellValue(h1,3,1) h1 = var_Items.InsertItem(h,,"Child 2") var_Items.CellValue(h1,1,-2) var_Items.CellValue(h1,2,-2) var_Items.CellValue(h1,3,-4) h1 = var_Items.InsertItem(h,,"Child 3") var_Items.CellValue(h1,1,2) var_Items.CellValue(h1,2,2) var_Items.CellValue(h1,3,-4) var_Items.ExpandItem(h,true) oGrid.EndUpdate()
676	How can I collapse all items OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.LinesAtRoot = -1 oGrid.Columns.Add("Items") var_Items = oGrid.Items h = var_Items.AddItem("Root 1") var_Items.InsertItem(h,,"Child 1") var_Items.InsertItem(h,,"Child 2") h = var_Items.AddItem("Root 2") var_Items.InsertItem(h,,"Child 1") var_Items.InsertItem(h,,"Child 2") var_Items.ExpandItem(0,false) oGrid.EndUpdate()
675	How can I expand all items OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.LinesAtRoot = -1 oGrid.Columns.Add("Items") var_Items = oGrid.Items h = var_Items.AddItem("Root 1") var_Items.InsertItem(h,,"Child 1") var_Items.InsertItem(h,,"Child 2") h = var_Items.AddItem("Root 2") var_Items.InsertItem(h,,"Child 1") var_Items.InsertItem(h,,"Child 2") var_Items.ExpandItem(0,true) oGrid.EndUpdate()
674	Can I display a total field without having to add a child item OleObject oGrid,var_Column,var_Editor,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() var_Column = oGrid.Columns.Add("Numbers") var_Column.SortType = 1 var_Editor = var_Column.Editor var_Editor.EditType = 4 var_Editor.Numeric = 1 var_Items = oGrid.Items var_Items.AddItem(1) var_Items.AddItem(2) var_Items.AddItem(3) var_Items.AddItem(4) var_Items.LockedItemCount(2,1) h = var_Items.LockedItem(2,0) var_Items.CellValue(h,0,"sum(all,dir,dbl(%0))") var_Items.SortableItem(h,false) var_Items.CellValueFormat(h,0,4) var_Items.CellHAlignment(h,0,2) var_Items.FormatCell(h,0,"'SUM: '+value") oGrid.EndUpdate()
673	Can I display the number of child items OleObject oGrid,var_Items any h,hx oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.LinesAtRoot = 1 oGrid.Columns.Add("") var_Items = oGrid.Items h = var_Items.AddItem("Root 1") hx = var_Items.SplitCell(h,0) var_Items.CellValue(0,hx,"count(current,dir,1)") var_Items.CellValueFormat(0,hx,4) var_Items.FormatCell(0,hx,"'Childs: ' + value") var_Items.InsertItem(h,,"Child 1") var_Items.InsertItem(h,,"Child 2") var_Items.ExpandItem(h,true) h = var_Items.AddItem("Root 2") hx = var_Items.SplitCell(h,0) var_Items.CellValue(0,hx,"count(current,dir,1)") var_Items.CellValueFormat(0,hx,4) var_Items.FormatCell(0,hx,"'Childs: ' + value") var_Items.InsertItem(h,,"Child 1") var_Items.InsertItem(h,,"Child 2") var_Items.InsertItem(h,,"Child 3") var_Items.InsertItem(h,,"Child 4") oGrid.EndUpdate()
672	My field does not display the correctly computed value if I enter data using the control's editors ( concatenation of strings ). What am I doing wrong OleObject oGrid,var_Editor,var_Editor1,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("T") var_Editor = oGrid.Columns.Add("A").Editor var_Editor.Numeric = true var_Editor.EditType = 4 var_Editor1 = oGrid.Columns.Add("B").Editor var_Editor1.Numeric = true var_Editor1.EditType = 4 oGrid.Columns.Add("A+B") var_Items = oGrid.Items h = var_Items.AddItem("Incorrect") var_Items.CellToolTip(h,0,"Just type a number in the column A or B. The result will be concaternated") var_Items.CellValue(h,1,"10") var_Items.CellValue(h,2,"20") var_Items.CellValue(h,3,"currency(%1+%2)") var_Items.CellValueFormat(h,3,2) h = var_Items.AddItem("Correct") var_Items.CellValue(h,1,10) var_Items.CellValue(h,2,20) var_Items.CellValue(h,3,"currency(dbl(%1)+dbl(%2))") var_Items.CellValueFormat(h,3,2) oGrid.EndUpdate()
671	The CellValue/CellCaption property gets the result of a computed/total field with text formatting. Is it possible to get that value without text formatting OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("A").Editor.EditType = 4 oGrid.Columns.Add("B").Editor.EditType = 4 oGrid.Columns.Add("A+B") var_Items = oGrid.Items h = var_Items.AddItem(10) var_Items.CellValue(h,1,20) var_Items.CellValueFormat(h,2,2) var_Items.CellValue(h,2,"currency(dbl(%0)+dbl(%1))") MessageBox("Information",string( "CellCaption returns " )) MessageBox("Information",string( var_Items.CellCaption(h,2) )) MessageBox("Information",string( "CellValue returns " )) MessageBox("Information",string( String(var_Items.CellValue(h,2)) )) MessageBox("Information",string( "ComputeValue returns " )) MessageBox("Information",string( String(var_Items.ComputeValue("dbl(%0)+dbl(%1)",h,0,var_Items.CellValueFormat(h,2))) )) oGrid.EndUpdate()
670	Can I get the result of a specified formula as your control does using the ComputedField property OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("A") oGrid.Columns.Add("B") var_Items = oGrid.Items h = var_Items.AddItem(10) var_Items.CellValue(h,1,20) MessageBox("Information",string( "A+B is " )) MessageBox("Information",string( String(var_Items.ComputeValue("dbl(%0)+dbl(%1)",h,0,2)) )) oGrid.EndUpdate()
669	Is it possible to get the text without HTML formatting OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("") var_Items = oGrid.Items h = var_Items.AddItem("<b>bold</b>") MessageBox("Information",string( String(var_Items.ComputeValue(var_Items.CellValue(h,0),h,0,1)) )) oGrid.EndUpdate()
668	Can I specify an item to be a separator OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.TreeColumnIndex = -1 oGrid.SortOnClick = 0 oGrid.Columns.Add("Numbers") var_Items = oGrid.Items var_Items.AddItem(1) var_Items.AddItem(2) h = var_Items.AddItem("separator") var_Items.SelectableItem(h,false) var_Items.ItemDivider(h,0) var_Items.ItemDividerLineAlignment(h,1) var_Items.ItemDividerLine(h,5) var_Items.CellHAlignment(h,0,1) var_Items.AddItem(3) var_Items.AddItem(4) oGrid.EndUpdate()
667	How can I count only non-zero values OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("Numbers").SortType = 1 var_Items = oGrid.Items var_Items.AddItem(1) var_Items.AddItem(2) var_Items.AddItem(0) var_Items.AddItem(0) var_Items.AddItem(0) var_Items.AddItem(0) var_Items.AddItem(3) var_Items.AddItem(4) h = var_Items.AddItem("sum(all,dir,dbl(%0)?1:0)") var_Items.SortableItem(h,false) var_Items.CellValueFormat(h,0,4) var_Items.CellHAlignment(h,0,2) var_Items.FormatCell(h,0,"'COUNT non-zero: '+value") oGrid.EndUpdate()
666	How can I add a AVG ( average ) field OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("Numbers").SortType = 1 var_Items = oGrid.Items var_Items.AddItem(1) var_Items.AddItem(2) var_Items.AddItem(3) var_Items.AddItem(4) h = var_Items.AddItem("avg(all,dir,dbl(%0))") var_Items.SortableItem(h,false) var_Items.CellValueFormat(h,0,4) var_Items.CellHAlignment(h,0,2) var_Items.FormatCell(h,0,"'AVG: '+value") oGrid.EndUpdate()
665	How can I add a COUNT field OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("Numbers").SortType = 1 var_Items = oGrid.Items var_Items.AddItem(1) var_Items.AddItem(2) var_Items.AddItem(3) var_Items.AddItem(4) h = var_Items.AddItem("count(all,dir,0)") var_Items.SortableItem(h,false) var_Items.CellValueFormat(h,0,4) var_Items.CellHAlignment(h,0,2) var_Items.FormatCell(h,0,"'COUNT: '+value") oGrid.EndUpdate()
664	How can I add a MAX field OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("Numbers").SortType = 1 var_Items = oGrid.Items var_Items.AddItem(1) var_Items.AddItem(2) var_Items.AddItem(3) var_Items.AddItem(4) h = var_Items.AddItem("max(all,dir,dbl(%0))") var_Items.SortableItem(h,false) var_Items.CellValueFormat(h,0,4) var_Items.CellHAlignment(h,0,2) var_Items.FormatCell(h,0,"'MAX: '+value") oGrid.EndUpdate()
663	How can I add a MIN or MAX field (for numbers) OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("Numbers").SortType = 1 var_Items = oGrid.Items var_Items.AddItem(11) var_Items.AddItem(21) var_Items.AddItem(3) var_Items.AddItem(4) h = var_Items.AddItem("min(all,dir,dbl(%0))") var_Items.SortableItem(h,false) var_Items.CellValueFormat(h,0,4) var_Items.CellHAlignment(h,0,2) var_Items.FormatCell(h,0,"'MIN: '+value") h = var_Items.AddItem("max(all,dir,dbl(%0))") var_Items.SortableItem(h,false) var_Items.CellValueFormat(h,0,4) var_Items.CellHAlignment(h,0,2) var_Items.FormatCell(h,0,"'MAX: '+value") oGrid.EndUpdate()
662	How can I add a SUM field OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("Numbers").SortType = 1 var_Items = oGrid.Items var_Items.AddItem(1) var_Items.AddItem(2) var_Items.AddItem(3) var_Items.AddItem(4) h = var_Items.AddItem("sum(all,dir,dbl(%0))") var_Items.SortableItem(h,false) var_Items.CellValueFormat(h,0,4) var_Items.CellHAlignment(h,0,2) var_Items.FormatCell(h,0,"'SUM: '+value") oGrid.EndUpdate()
661	How can I add total and subtotals fields /begin event Change(long Item,long ColIndex,any NewValue) - Occurs when the user changes the cell's content./ /* oGrid = ole_1.Object oGrid.Refresh() / /end event Change/ OleObject oGrid,var_Column,var_Editor,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.LinesAtRoot = 1 oGrid.Columns.Add("Members") var_Column = oGrid.Columns.Add("Values") var_Column.FormatColumn = "currency(value)" var_Editor = var_Column.Editor var_Editor.EditType = 4 var_Editor.Numeric = true var_Items = oGrid.Items h = var_Items.AddItem("Group 1") var_Items.ItemBold(h,true) var_Items.CellEditorVisible(h,1,false) var_Items.CellValue(h,1,"sum(current,dir,dbl(%1))") var_Items.CellValueFormat(h,1,5 /exTotalField \| exHTML/) var_Items.CellHAlignment(h,1,2) var_Items.CellValue(var_Items.InsertItem(h,,"Child 1"),1,10) var_Items.CellValue(var_Items.InsertItem(h,,"Child 2"),1,20) var_Items.CellValue(var_Items.InsertItem(h,,"Child 3"),1,30) var_Items.ExpandItem(h,true) h = var_Items.AddItem("Group 2") var_Items.ItemBold(h,true) var_Items.CellEditorVisible(h,1,false) var_Items.CellValue(h,1,"sum(current,dir,dbl(%1))") var_Items.CellValueFormat(h,1,5 /exTotalField \| exHTML/) var_Items.CellHAlignment(h,1,2) var_Items.CellValue(var_Items.InsertItem(h,,"Child 1"),1,5) var_Items.CellValue(var_Items.InsertItem(h,,"Child 2"),1,15) var_Items.CellValue(var_Items.InsertItem(h,,"Child 3"),1,35) h = var_Items.AddItem("total") var_Items.CellValue(h,1,"sum(all,rec,dbl(%1))") var_Items.CellValueFormat(h,1,5 /exTotalField \| exHTML*/) var_Items.CellEditorVisible(h,1,false) var_Items.FormatCell(h,1,"'Total: <b>' + currency(value)") var_Items.CellHAlignment(h,1,2) var_Items.ItemDivider(h,1) var_Items.ItemDividerLineAlignment(h,1) var_Items.ItemDividerLine(h,2) var_Items.SortableItem(h,false) oGrid.EndUpdate()
660	Is is possible to have subtotal items, and a grand total item /begin event Change(long Item,long ColIndex,any NewValue) - Occurs when the user changes the cell's content./ /* oGrid = ole_1.Object oGrid.Refresh() / /end event Change/ OleObject oGrid,var_Column,var_Editor,var_Items any h,hT oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.BackColor = RGB(255,255,255) oGrid.LinesAtRoot = 1 oGrid.ShowFocusRect = false oGrid.Columns.Add("Members") var_Column = oGrid.Columns.Add("Values") var_Column.FormatColumn = "currency(value)" var_Editor = var_Column.Editor var_Editor.EditType = 4 var_Editor.Numeric = true var_Items = oGrid.Items h = var_Items.AddItem("Group 1") var_Items.ItemBold(h,true) var_Items.SortableItem(h,false) var_Items.CellEditorVisible(h,1,false) var_Items.FormatCell(h,1," ") var_Items.CellValue(var_Items.InsertItem(h,,"Child 1"),1,10) var_Items.CellValue(var_Items.InsertItem(h,,"Child 2"),1,20) var_Items.CellValue(var_Items.InsertItem(h,,"Child 3"),1,30) hT = var_Items.InsertItem(h,,"subtotal") var_Items.CellHAlignment(hT,1,2) var_Items.CellEditorVisible(hT,1,false) var_Items.CellValue(hT,1,"sum(parent,dir,dbl(%1))") var_Items.CellValueFormat(hT,1,5 /exTotalField \| exHTML/) var_Items.FormatCell(hT,1,"'subtotal: <b>' + currency(value)") var_Items.ItemDivider(hT,1) var_Items.ItemDividerLineAlignment(hT,1) var_Items.SortableItem(hT,false) var_Items.SelectableItem(hT,false) var_Items.ItemDividerLine(hT,3) var_Items.ExpandItem(h,true) h = var_Items.AddItem("Group 2") var_Items.ItemBold(h,true) var_Items.SortableItem(h,false) var_Items.FormatCell(h,1," ") var_Items.CellEditorVisible(h,1,false) var_Items.CellValue(var_Items.InsertItem(h,,"Child 1"),1,15) var_Items.CellValue(var_Items.InsertItem(h,,"Child 2"),1,25) var_Items.CellValue(var_Items.InsertItem(h,,"Child 3"),1,18) hT = var_Items.InsertItem(h,,"subtotal") var_Items.CellHAlignment(hT,1,2) var_Items.CellEditorVisible(hT,1,false) var_Items.CellValue(hT,1,"sum(parent,dir,dbl(%1))") var_Items.CellValueFormat(hT,1,5 /exTotalField \| exHTML/) var_Items.FormatCell(hT,1,"'subtotal: <b>' + currency(value)") var_Items.ItemDivider(hT,1) var_Items.ItemDividerLineAlignment(hT,1) var_Items.ItemDividerLine(hT,3) var_Items.SortableItem(hT,false) var_Items.SelectableItem(hT,false) var_Items.ExpandItem(h,true) h = var_Items.AddItem("total") var_Items.CellValue(h,1,"sum(all,rec,dbl(%1))") var_Items.CellValueFormat(h,1,5 /exTotalField \| exHTML*/) var_Items.CellEditorVisible(h,1,false) var_Items.FormatCell(h,1,"'Total: <b><font ;11>' + currency(value)") var_Items.CellHAlignment(h,1,1) var_Items.ItemDivider(h,1) var_Items.ItemDividerLineAlignment(h,1) var_Items.ItemDividerLine(h,2) var_Items.SortableItem(h,false) var_Items.SelectableItem(h,false) oGrid.EndUpdate()
659	Is it possible to have a total field for each column /begin event Change(long Item,long ColIndex,any NewValue) - Occurs when the user changes the cell's content./ /* oGrid = ole_1.Object oGrid.Refresh() / /end event Change*/ OleObject oGrid,var_Column,var_Column1,var_Editor,var_Editor1,var_Items,var_Items1 any h oGrid = ole_1.Object oGrid.BeginUpdate() var_Column = oGrid.Columns.Add("C1") var_Editor = var_Column.Editor var_Editor.Numeric = -1 var_Editor.EditType = 4 var_Column.SortType = 1 var_Column1 = oGrid.Columns.Add("C2") var_Editor1 = var_Column1.Editor var_Editor1.Numeric = -1 var_Editor1.EditType = 4 var_Column1.SortType = 1 var_Items = oGrid.Items var_Items.LockedItemCount(2,1) h = var_Items.LockedItem(2,0) var_Items.ItemBackColor(h,RGB(240,240,240)) var_Items.ItemBold(h,true) var_Items.CellValue(h,0,"sum(all,dir,dbl(%0))") var_Items.CellValueFormat(h,0,4) var_Items.CellValue(h,1,"sum(all,dir,dbl(%1))") var_Items.CellValueFormat(h,1,4) var_Items1 = oGrid.Items var_Items1.CellValue(var_Items1.AddItem(10),1,12) var_Items1.CellValue(var_Items1.AddItem(25),1,5) var_Items1.CellValue(var_Items1.AddItem(31),1,17) var_Items1.CellValue(var_Items1.AddItem(48),1,22) oGrid.EndUpdate()
658	How can I add a total field for a DataSource being used /begin event Change(long Item,long ColIndex,any NewValue) - Occurs when the user changes the cell's content./ /* oGrid = ole_1.Object oGrid.Refresh() / /end event Change/ OleObject oGrid,rs,var_Items any h oGrid = ole_1.Object oGrid.ColumnAutoResize = false oGrid.ContinueColumnScroll = false rs = CREATE OLEObject rs.ConnectToNewObject("ADOR.Recordset") rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3) oGrid.DataSource = rs var_Items = oGrid.Items var_Items.LockedItemCount(0,1) h = var_Items.LockedItem(0,0) var_Items.ItemDivider(h,0) var_Items.CellValueFormat(h,0,5 /exTotalField \| exHTML*/) var_Items.CellValue(h,0,"sum(all,dir,%1)")
657	How can I add a total field /begin event Change(long Item,long ColIndex,any NewValue) - Occurs when the user changes the cell's content./ /* oGrid = ole_1.Object oGrid.Refresh() / /end event Change*/ OleObject oGrid,var_Column,var_Editor,var_Items,var_Items1 any h oGrid = ole_1.Object oGrid.BeginUpdate() var_Column = oGrid.Columns.Add("Numbers") var_Editor = var_Column.Editor var_Editor.Numeric = -1 var_Editor.EditType = 4 var_Column.SortType = 1 var_Items = oGrid.Items var_Items.LockedItemCount(0,1) h = var_Items.LockedItem(0,0) var_Items.ItemBackColor(h,RGB(240,240,240)) var_Items.CellValue(h,0,"sum(all,dir,dbl(%0))") var_Items.CellValueFormat(h,0,4) var_Items.CellHAlignment(h,0,2) var_Items.FormatCell(h,0,"'Total: '+value") var_Items1 = oGrid.Items var_Items1.AddItem(10) var_Items1.AddItem(25) var_Items1.AddItem(31) var_Items1.AddItem(48) oGrid.EndUpdate()
656	How can I add a total field /begin event Change(long Item,long ColIndex,any NewValue) - Occurs when the user changes the cell's content./ /* oGrid = ole_1.Object oGrid.Refresh() / /end event Change/ OleObject oGrid,var_Editor,var_Items any h,hT oGrid = ole_1.Object oGrid.BeginUpdate() var_Editor = oGrid.Columns.Add("Items").Editor var_Editor.EditType = 4 var_Editor.Numeric = true var_Items = oGrid.Items h = var_Items.AddItem("Group 1") var_Items.CellEditorVisible(h,0,false) var_Items.InsertItem(h,,10) var_Items.InsertItem(h,,20) var_Items.InsertItem(h,,30) hT = var_Items.InsertItem(h,,"sum(parent,dir,dbl(%0))") var_Items.CellEditorVisible(hT,0,false) var_Items.CellValueFormat(hT,0,5 /exTotalField \| exHTML*/) var_Items.ItemDivider(hT,0) var_Items.ItemDividerLineAlignment(hT,2) var_Items.SelectableItem(hT,false) var_Items.SortableItem(hT,false) var_Items.ExpandItem(h,true) oGrid.EndUpdate()
655	Is it possible to specify the cell's value but still want to display some formatted text instead the value OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("Value") oGrid.Columns.Add("FormatCell") var_Items = oGrid.Items h = var_Items.AddItem(1) var_Items.CellValue(h,1,12) var_Items.FormatCell(h,1,"currency(value)") h = var_Items.AddItem(2001-01-01) var_Items.CellValue(h,1,2001-01-01) var_Items.CellValueFormat(h,1,1) var_Items.FormatCell(h,1,"longdate(value) replace '2001' with '<b>2001</b>'") oGrid.EndUpdate()
654	How can I simulate displaying groups OleObject oGrid,var_Columns,var_Items any h,h1 oGrid = ole_1.Object oGrid.HasLines = 0 oGrid.ScrollBySingleLine = true var_Columns = oGrid.Columns var_Columns.Add("Name") var_Columns.Add("A") var_Columns.Add("B") var_Columns.Add("C") var_Items = oGrid.Items h = var_Items.AddItem("Group 1") var_Items.CellHAlignment(h,0,1) var_Items.ItemDivider(h,0) var_Items.ItemDividerLineAlignment(h,3) var_Items.ItemHeight(h,24) var_Items.SortableItem(h,false) h1 = var_Items.InsertItem(h,,"Child 1") var_Items.CellValue(h1,1,1) var_Items.CellValue(h1,2,2) var_Items.CellValue(h1,3,3) h1 = var_Items.InsertItem(h,,"Child 2") var_Items.CellValue(h1,1,4) var_Items.CellValue(h1,2,5) var_Items.CellValue(h1,3,6) var_Items.ExpandItem(h,true) h = var_Items.AddItem("Group 2") var_Items.CellHAlignment(h,0,1) var_Items.ItemDivider(h,0) var_Items.ItemDividerLineAlignment(h,3) var_Items.ItemHeight(h,24) var_Items.SortableItem(h,false) h1 = var_Items.InsertItem(h,,"Child 1") var_Items.CellValue(h1,1,1) var_Items.CellValue(h1,2,2) var_Items.CellValue(h1,3,3) h1 = var_Items.InsertItem(h,,"Child 2") var_Items.CellValue(h1,1,4) var_Items.CellValue(h1,2,5) var_Items.CellValue(h1,3,6) var_Items.ExpandItem(h,true)
653	Is it possible to specify the cell's value but still want to display some formatted text instead the value OleObject oGrid,var_Column,var_Columns,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.MarkSearchColumn = false var_Columns = oGrid.Columns var_Columns.Add("Name") var_Column = var_Columns.Add("Values") var_Column.SortType = 1 var_Column.AllowSizing = false var_Column.Width = 64 var_Column.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)" var_Column.Def(17,1) var_Items = oGrid.Items h = var_Items.AddItem("Root") var_Items.FormatCell(h,1,"'<none>'") var_Items.CellValue(var_Items.InsertItem(h,,"Child 1"),1,10) var_Items.CellValue(var_Items.InsertItem(h,,"Child 2"),1,15) var_Items.CellValue(var_Items.InsertItem(h,,"Child 3"),1,25) var_Items.ExpandItem(h,true) oGrid.EndUpdate()
652	I am using the FormatColumn to display the current currency, but would like hide some values. Is it possible OleObject oGrid,var_Column,var_Columns,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.MarkSearchColumn = false var_Columns = oGrid.Columns var_Columns.Add("Name") var_Column = var_Columns.Add("Values") var_Column.SortType = 1 var_Column.AllowSizing = false var_Column.Width = 64 var_Column.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)" var_Column.Def(17,1) var_Items = oGrid.Items h = var_Items.AddItem("Root") var_Items.FormatCell(h,1," ") var_Items.CellValue(var_Items.InsertItem(h,,"Child 1"),1,10) var_Items.CellValue(var_Items.InsertItem(h,,"Child 2"),1,15) var_Items.CellValue(var_Items.InsertItem(h,,"Child 3"),1,25) var_Items.ExpandItem(h,true) oGrid.EndUpdate()
651	How can I specify an item to be always the first item OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.TreeColumnIndex = -1 oGrid.Columns.Add("Numbers").SortType = 1 var_Items = oGrid.Items var_Items.AddItem(1) var_Items.AddItem(2) var_Items.AddItem(3) var_Items.AddItem(4) h = var_Items.AddItem("first") var_Items.ItemPosition(h,0) var_Items.CellHAlignment(h,0,2) var_Items.SortableItem(h,false) var_Items.SortChildren(0,0,false) oGrid.EndUpdate()
650	How can I specify an item to be always the last item OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.TreeColumnIndex = -1 oGrid.Columns.Add("Numbers").SortType = 1 var_Items = oGrid.Items var_Items.AddItem(1) var_Items.AddItem(2) var_Items.AddItem(3) var_Items.AddItem(4) h = var_Items.AddItem("last") var_Items.CellHAlignment(h,0,2) var_Items.SortableItem(h,false) var_Items.SortChildren(0,0,true) oGrid.EndUpdate()
649	Can I allow sorting only the child items OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("Childs") var_Items = oGrid.Items h = var_Items.AddItem("Root 1") var_Items.SortableItem(h,false) var_Items.InsertItem(h,,"Child 1") var_Items.InsertItem(h,,"Child 2") var_Items.ExpandItem(h,true) h = var_Items.AddItem("Root 2") var_Items.SortableItem(h,false) var_Items.InsertItem(h,,"Child 1") var_Items.InsertItem(h,,"Child 2") var_Items.ExpandItem(h,true) oGrid.EndUpdate()
648	Can I specify a terminal item so it will mark the end of childs OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.ScrollBySingleLine = true oGrid.Columns.Add("P1") var_Items = oGrid.Items h = var_Items.AddItem("Root 1") var_Items.InsertItem(h,,"Child 1") var_Items.InsertItem(h,,"Child 2") var_Items.ExpandItem(h,true) h = var_Items.InsertItem(h,"","") var_Items.ItemDivider(h,0) var_Items.ItemDividerLineAlignment(h,1) var_Items.ItemHeight(h,2) var_Items.SelectableItem(h,false) var_Items.SortableItem(h,false) h = var_Items.AddItem("Root 2") var_Items.InsertItem(h,,"Child 1") var_Items.InsertItem(h,,"Child 2") var_Items.ExpandItem(h,true) h = var_Items.InsertItem(h,"","") var_Items.ItemDivider(h,0) var_Items.ItemDividerLineAlignment(h,1) var_Items.ItemHeight(h,2) var_Items.SelectableItem(h,false) var_Items.SortableItem(h,false) oGrid.EndUpdate()
647	Is it possible to specify an item being unsortable so its position won't be changed after sorting OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.TreeColumnIndex = -1 oGrid.Columns.Add("Numbers").SortType = 1 var_Items = oGrid.Items var_Items.AddItem(1) var_Items.AddItem(2) var_Items.AddItem(3) var_Items.AddItem(4) h = var_Items.AddItem("top 3") var_Items.ItemPosition(h,3) var_Items.CellHAlignment(h,0,2) var_Items.SortableItem(h,false) var_Items.SortChildren(0,0,false) oGrid.EndUpdate()
646	Is it possible to move an item from a parent to another OleObject oGrid,var_Items oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.LinesAtRoot = -1 oGrid.Columns.Add("Items") var_Items = oGrid.Items var_Items.AddItem("A") var_Items.AddItem("B") var_Items.InsertItem(var_Items.AddItem("C"),"","D") var_Items.SetParent(var_Items.FindItem("D",0),var_Items.FindItem("A",0)) oGrid.EndUpdate()
645	How can I change the identation for an item OleObject oGrid,var_Items oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.LinesAtRoot = -1 oGrid.Columns.Add("Items") var_Items = oGrid.Items var_Items.AddItem("A") var_Items.AddItem("B") var_Items.InsertItem(var_Items.AddItem("C"),"","D") var_Items.SetParent(var_Items.FindItem("D",0),0) oGrid.EndUpdate()
644	How can I arrange the control's header on multiple levels OleObject oGrid,var_Column,var_Column1,var_Columns,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.DefaultItemHeight = 48 var_Columns = oGrid.Columns var_Columns.Add("Title").Visible = false var_Columns.Add("FirstName").Visible = false var_Columns.Add("LastName").Visible = false var_Columns.Add("Photo").Visible = false var_Column = var_Columns.Add("Address") var_Column.Visible = false var_Column.Def(16,false) var_Column1 = var_Columns.Add("Personal Info") var_Column1.FormatLevel = "3:48,(0/1/2),4:96" var_Column1.Def(32,"3:48,(0/1/2),4:96") var_Items = oGrid.Items h = var_Items.AddItem("Sales Representative") var_Items.CellValue(h,1,"Nancy") var_Items.CellValue(h,2,"Davolio") var_Items.CellPicture(h,3,oGrid.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")) var_Items.CellValue(h,4,"507-20th Ave. E.Apt. 2A") oGrid.EndUpdate()
643	How can I filter programatically using more columns OleObject oGrid,var_Column,var_Column1,var_Columns,var_Items oGrid = ole_1.Object oGrid.BeginUpdate() var_Columns = oGrid.Columns var_Columns.Add("Car") var_Columns.Add("Equipment") var_Items = oGrid.Items var_Items.CellValue(var_Items.AddItem("Mazda"),1,"Air Bag") var_Items.CellValue(var_Items.AddItem("Toyota"),1,"Air Bag,Air condition") var_Items.CellValue(var_Items.AddItem("Ford"),1,"Air condition") var_Items.CellValue(var_Items.AddItem("Nissan"),1,"Air Bag,ABS,ESP") var_Items.CellValue(var_Items.AddItem("Mazda"),1,"Air Bag, ABS,ESP") var_Items.CellValue(var_Items.AddItem("Mazda"),1,"ABS,ESP") var_Column = oGrid.Columns.Item("Car") var_Column.FilterType = 240 var_Column.Filter = "Mazda" var_Column1 = oGrid.Columns.Item("Equipment") var_Column1.FilterType = 3 var_Column1.Filter = "ABS\|ESP" oGrid.ApplyFilter() oGrid.EndUpdate()
642	How can I show the ticks for a single slider field OleObject oGrid,var_Editor,var_Items oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("Slider").Editor.EditType = 20 var_Items = oGrid.Items var_Items.AddItem(10) var_Editor = var_Items.CellEditor(var_Items.AddItem(20),0) var_Editor.EditType = 20 var_Editor.Option(53,10) var_Items.AddItem(30) oGrid.EndUpdate()
641	Is it possible to show ticks for slider fields OleObject oGrid,var_Editor oGrid = ole_1.Object var_Editor = oGrid.Columns.Add("Slider").Editor var_Editor.EditType = 20 var_Editor.Option(53,10) oGrid.Items.AddItem(10)
640	Is it possible to colour a particular column, I mean the cell's foreground color OleObject oGrid,var_Columns,var_ConditionalFormat,var_Items oGrid = ole_1.Object oGrid.BeginUpdate() var_ConditionalFormat = oGrid.ConditionalFormats.Add("1") var_ConditionalFormat.ForeColor = RGB(255,0,0) var_ConditionalFormat.ApplyTo = 1 /*0x1 \| */ oGrid.MarkSearchColumn = false var_Columns = oGrid.Columns var_Columns.Add("Column 1") var_Columns.Add("Column 2") var_Items = oGrid.Items var_Items.CellValue(var_Items.AddItem(0),1,1) var_Items.CellValue(var_Items.AddItem(2),1,3) var_Items.CellValue(var_Items.AddItem(4),1,5) oGrid.EndUpdate()
639	Is it possible to colour a particular column for specified values OleObject oGrid,var_Columns,var_ConditionalFormat,var_Items oGrid = ole_1.Object oGrid.BeginUpdate() var_ConditionalFormat = oGrid.ConditionalFormats.Add("int(%1) in (3,4,5)") var_ConditionalFormat.BackColor = RGB(255,0,0) var_ConditionalFormat.ApplyTo = 1 /*0x1 \| */ oGrid.MarkSearchColumn = false var_Columns = oGrid.Columns var_Columns.Add("Column 1") var_Columns.Add("Column 2") var_Items = oGrid.Items var_Items.CellValue(var_Items.AddItem(0),1,1) var_Items.CellValue(var_Items.AddItem(2),1,3) var_Items.CellValue(var_Items.AddItem(4),1,5) oGrid.EndUpdate()
638	Is it possible to colour a particular column OleObject oGrid,var_Columns,var_Items oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.MarkSearchColumn = false var_Columns = oGrid.Columns var_Columns.Add("Column 1") var_Columns.Add("Column 2").Def(4,255) var_Items = oGrid.Items var_Items.CellValue(var_Items.AddItem(0),1,1) var_Items.CellValue(var_Items.AddItem(2),1,3) var_Items.CellValue(var_Items.AddItem(4),1,5) oGrid.EndUpdate()
637	How do i get all the children items that are under a certain parent Item handle OleObject oGrid,var_Items,var_Items1 any h,hChild oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.LinesAtRoot = -1 oGrid.Columns.Add("P") var_Items = oGrid.Items h = var_Items.AddItem("Root") var_Items.InsertItem(h,,"Child 1") var_Items.InsertItem(h,,"Child 2") var_Items.ExpandItem(h,true) var_Items1 = oGrid.Items hChild = var_Items1.ItemChild(var_Items1.FirstVisibleItem) MessageBox("Information",string( String(var_Items1.CellValue(hChild,0)) )) MessageBox("Information",string( String(var_Items1.CellValue(var_Items1.NextSiblingItem(hChild),0)) )) oGrid.EndUpdate()
636	Is is possible to use HTML tags to display in the filter caption OleObject oGrid,var_Items oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.FilterBarPromptVisible = 1 oGrid.FilterBarCaption = "This is a bit of text being displayed in the filter bar." oGrid.Columns.Add("") var_Items = oGrid.Items var_Items.AddItem("Item 1") var_Items.AddItem("Item 2") var_Items.AddItem("Item 3") oGrid.EndUpdate()
635	How can I find the number of items after filtering OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.Columns.Add("") var_Items = oGrid.Items h = var_Items.AddItem("") var_Items.CellValue(h,0,var_Items.VisibleItemCount) oGrid.EndUpdate()
634	How can I change the filter caption OleObject oGrid,var_Columns,var_Items any h0 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.ColumnAutoResize = true oGrid.ContinueColumnScroll = false oGrid.FocusColumnIndex = 1 oGrid.MarkSearchColumn = false oGrid.SearchColumnIndex = 1 oGrid.FilterBarPromptVisible = 1 oGrid.FilterBarPromptType = 12801 /exFilterPromptWords \| exFilterPromptContainsAll/ oGrid.FilterBarPromptPattern = "london robert" oGrid.FilterBarCaption = "<r>Found: ... " var_Columns = oGrid.Columns var_Columns.Add("Name").Width = 96 var_Columns.Add("Title").Width = 96 var_Columns.Add("City") var_Items = oGrid.Items h0 = var_Items.AddItem("Nancy Davolio") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Andrew Fuller") var_Items.CellValue(h0,1,"Vice President, Sales") var_Items.CellValue(h0,2,"Tacoma") var_Items.SelectItem(h0,true) h0 = var_Items.AddItem("Janet Leverling") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Kirkland") h0 = var_Items.AddItem("Margaret Peacock") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Redmond") h0 = var_Items.AddItem("Steven Buchanan") var_Items.CellValue(h0,1,"Sales Manager") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Michael Suyama") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Robert King") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Laura Callahan") var_Items.CellValue(h0,1,"Inside Sales Coordinator") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Anne Dodsworth") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") oGrid.EndUpdate()
633	While using the filter prompt is it is possible to use wild characters OleObject oGrid,var_Columns,var_Items any h0 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.ColumnAutoResize = true oGrid.ContinueColumnScroll = false oGrid.FocusColumnIndex = 1 oGrid.MarkSearchColumn = false oGrid.SearchColumnIndex = 1 oGrid.FilterBarPromptVisible = 1 oGrid.FilterBarPromptType = 16 oGrid.FilterBarPromptPattern = "lon* seat*" var_Columns = oGrid.Columns var_Columns.Add("Name").Width = 96 var_Columns.Add("Title").Width = 96 var_Columns.Add("City") var_Items = oGrid.Items h0 = var_Items.AddItem("Nancy Davolio") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Andrew Fuller") var_Items.CellValue(h0,1,"Vice President, Sales") var_Items.CellValue(h0,2,"Tacoma") var_Items.SelectItem(h0,true) h0 = var_Items.AddItem("Janet Leverling") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Kirkland") h0 = var_Items.AddItem("Margaret Peacock") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Redmond") h0 = var_Items.AddItem("Steven Buchanan") var_Items.CellValue(h0,1,"Sales Manager") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Michael Suyama") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Robert King") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Laura Callahan") var_Items.CellValue(h0,1,"Inside Sales Coordinator") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Anne Dodsworth") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") oGrid.EndUpdate()
632	How can I list all items that contains any of specified words, not necessary at the beggining OleObject oGrid,var_Columns,var_Items any h0 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.ColumnAutoResize = true oGrid.ContinueColumnScroll = false oGrid.FocusColumnIndex = 1 oGrid.MarkSearchColumn = false oGrid.SearchColumnIndex = 1 oGrid.FilterBarPromptVisible = 1 oGrid.FilterBarPromptType = 4610 /exFilterPromptStartWords \| exFilterPromptContainsAny/ oGrid.FilterBarPromptPattern = "london davolio" var_Columns = oGrid.Columns var_Columns.Add("Name").Width = 96 var_Columns.Add("Title").Width = 96 var_Columns.Add("City") var_Items = oGrid.Items h0 = var_Items.AddItem("Nancy Davolio") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Andrew Fuller") var_Items.CellValue(h0,1,"Vice President, Sales") var_Items.CellValue(h0,2,"Tacoma") var_Items.SelectItem(h0,true) h0 = var_Items.AddItem("Janet Leverling") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Kirkland") h0 = var_Items.AddItem("Margaret Peacock") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Redmond") h0 = var_Items.AddItem("Steven Buchanan") var_Items.CellValue(h0,1,"Sales Manager") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Michael Suyama") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Robert King") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Laura Callahan") var_Items.CellValue(h0,1,"Inside Sales Coordinator") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Anne Dodsworth") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") oGrid.EndUpdate()
631	How can I list all items that contains any of specified words, not strings OleObject oGrid,var_Columns,var_Items any h0 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.ColumnAutoResize = true oGrid.ContinueColumnScroll = false oGrid.FocusColumnIndex = 1 oGrid.MarkSearchColumn = false oGrid.SearchColumnIndex = 1 oGrid.FilterBarPromptVisible = 1 oGrid.FilterBarPromptType = 12802 /exFilterPromptWords \| exFilterPromptContainsAny/ oGrid.FilterBarPromptPattern = "london nancy" var_Columns = oGrid.Columns var_Columns.Add("Name").Width = 96 var_Columns.Add("Title").Width = 96 var_Columns.Add("City") var_Items = oGrid.Items h0 = var_Items.AddItem("Nancy Davolio") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Andrew Fuller") var_Items.CellValue(h0,1,"Vice President, Sales") var_Items.CellValue(h0,2,"Tacoma") var_Items.SelectItem(h0,true) h0 = var_Items.AddItem("Janet Leverling") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Kirkland") h0 = var_Items.AddItem("Margaret Peacock") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Redmond") h0 = var_Items.AddItem("Steven Buchanan") var_Items.CellValue(h0,1,"Sales Manager") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Michael Suyama") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Robert King") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Laura Callahan") var_Items.CellValue(h0,1,"Inside Sales Coordinator") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Anne Dodsworth") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") oGrid.EndUpdate()
630	How can I list all items that contains all specified words, not strings OleObject oGrid,var_Columns,var_Items any h0 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.ColumnAutoResize = true oGrid.ContinueColumnScroll = false oGrid.FocusColumnIndex = 1 oGrid.MarkSearchColumn = false oGrid.SearchColumnIndex = 1 oGrid.FilterBarPromptVisible = 1 oGrid.FilterBarPromptType = 12801 /exFilterPromptWords \| exFilterPromptContainsAll/ oGrid.FilterBarPromptPattern = "london robert" var_Columns = oGrid.Columns var_Columns.Add("Name").Width = 96 var_Columns.Add("Title").Width = 96 var_Columns.Add("City") var_Items = oGrid.Items h0 = var_Items.AddItem("Nancy Davolio") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Andrew Fuller") var_Items.CellValue(h0,1,"Vice President, Sales") var_Items.CellValue(h0,2,"Tacoma") var_Items.SelectItem(h0,true) h0 = var_Items.AddItem("Janet Leverling") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Kirkland") h0 = var_Items.AddItem("Margaret Peacock") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Redmond") h0 = var_Items.AddItem("Steven Buchanan") var_Items.CellValue(h0,1,"Sales Manager") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Michael Suyama") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Robert King") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Laura Callahan") var_Items.CellValue(h0,1,"Inside Sales Coordinator") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Anne Dodsworth") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") oGrid.EndUpdate()
629	I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive OleObject oGrid,var_Columns,var_Items any h0 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.ColumnAutoResize = true oGrid.ContinueColumnScroll = false oGrid.FocusColumnIndex = 1 oGrid.MarkSearchColumn = false oGrid.SearchColumnIndex = 1 oGrid.FilterBarPromptVisible = 1 oGrid.FilterBarPromptType = 258 /exFilterPromptCaseSensitive \| exFilterPromptContainsAny/ oGrid.FilterBarPromptPattern = "Anne" var_Columns = oGrid.Columns var_Columns.Add("Name").Width = 96 var_Columns.Add("Title").Width = 96 var_Columns.Add("City") var_Items = oGrid.Items h0 = var_Items.AddItem("Nancy Davolio") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Andrew Fuller") var_Items.CellValue(h0,1,"Vice President, Sales") var_Items.CellValue(h0,2,"Tacoma") var_Items.SelectItem(h0,true) h0 = var_Items.AddItem("Janet Leverling") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Kirkland") h0 = var_Items.AddItem("Margaret Peacock") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Redmond") h0 = var_Items.AddItem("Steven Buchanan") var_Items.CellValue(h0,1,"Sales Manager") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Michael Suyama") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Robert King") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Laura Callahan") var_Items.CellValue(h0,1,"Inside Sales Coordinator") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Anne Dodsworth") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") oGrid.EndUpdate()
628	Is it possible to list only items that ends with any of specified strings OleObject oGrid,var_Columns,var_Items any h0 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.ColumnAutoResize = true oGrid.ContinueColumnScroll = false oGrid.FocusColumnIndex = 1 oGrid.MarkSearchColumn = false oGrid.SearchColumnIndex = 1 oGrid.FilterBarPromptVisible = 1 oGrid.FilterBarPromptType = 4 oGrid.FilterBarPromptColumns = "0" oGrid.FilterBarPromptPattern = "Fuller" var_Columns = oGrid.Columns var_Columns.Add("Name").Width = 96 var_Columns.Add("Title").Width = 96 var_Columns.Add("City") var_Items = oGrid.Items h0 = var_Items.AddItem("Nancy Davolio") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Andrew Fuller") var_Items.CellValue(h0,1,"Vice President, Sales") var_Items.CellValue(h0,2,"Tacoma") var_Items.SelectItem(h0,true) h0 = var_Items.AddItem("Janet Leverling") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Kirkland") h0 = var_Items.AddItem("Margaret Peacock") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Redmond") h0 = var_Items.AddItem("Steven Buchanan") var_Items.CellValue(h0,1,"Sales Manager") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Michael Suyama") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Robert King") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Laura Callahan") var_Items.CellValue(h0,1,"Inside Sales Coordinator") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Anne Dodsworth") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") oGrid.EndUpdate()
627	Is it possible to list only items that ends with any of specified strings OleObject oGrid,var_Columns,var_Items any h0 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.ColumnAutoResize = true oGrid.ContinueColumnScroll = false oGrid.FocusColumnIndex = 1 oGrid.MarkSearchColumn = false oGrid.SearchColumnIndex = 1 oGrid.FilterBarPromptVisible = 1 oGrid.FilterBarPromptType = 4 oGrid.FilterBarPromptColumns = "0" oGrid.FilterBarPromptPattern = "Fuller" var_Columns = oGrid.Columns var_Columns.Add("Name").Width = 96 var_Columns.Add("Title").Width = 96 var_Columns.Add("City") var_Items = oGrid.Items h0 = var_Items.AddItem("Nancy Davolio") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Andrew Fuller") var_Items.CellValue(h0,1,"Vice President, Sales") var_Items.CellValue(h0,2,"Tacoma") var_Items.SelectItem(h0,true) h0 = var_Items.AddItem("Janet Leverling") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Kirkland") h0 = var_Items.AddItem("Margaret Peacock") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Redmond") h0 = var_Items.AddItem("Steven Buchanan") var_Items.CellValue(h0,1,"Sales Manager") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Michael Suyama") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Robert King") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Laura Callahan") var_Items.CellValue(h0,1,"Inside Sales Coordinator") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Anne Dodsworth") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") oGrid.EndUpdate()
626	Is it possible to list only items that starts with any of specified strings OleObject oGrid,var_Columns,var_Items any h0 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.ColumnAutoResize = true oGrid.ContinueColumnScroll = false oGrid.FocusColumnIndex = 1 oGrid.MarkSearchColumn = false oGrid.SearchColumnIndex = 1 oGrid.FilterBarPromptVisible = 1 oGrid.FilterBarPromptType = 3 oGrid.FilterBarPromptColumns = "0" oGrid.FilterBarPromptPattern = "An M" var_Columns = oGrid.Columns var_Columns.Add("Name").Width = 96 var_Columns.Add("Title").Width = 96 var_Columns.Add("City") var_Items = oGrid.Items h0 = var_Items.AddItem("Nancy Davolio") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Andrew Fuller") var_Items.CellValue(h0,1,"Vice President, Sales") var_Items.CellValue(h0,2,"Tacoma") var_Items.SelectItem(h0,true) h0 = var_Items.AddItem("Janet Leverling") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Kirkland") h0 = var_Items.AddItem("Margaret Peacock") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Redmond") h0 = var_Items.AddItem("Steven Buchanan") var_Items.CellValue(h0,1,"Sales Manager") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Michael Suyama") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Robert King") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Laura Callahan") var_Items.CellValue(h0,1,"Inside Sales Coordinator") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Anne Dodsworth") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") oGrid.EndUpdate()
625	Is it possible to list only items that starts with specified string OleObject oGrid,var_Columns,var_Items any h0 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.ColumnAutoResize = true oGrid.ContinueColumnScroll = false oGrid.FocusColumnIndex = 1 oGrid.MarkSearchColumn = false oGrid.SearchColumnIndex = 1 oGrid.FilterBarPromptVisible = 1 oGrid.FilterBarPromptType = 3 oGrid.FilterBarPromptColumns = "0" oGrid.FilterBarPromptPattern = "A" var_Columns = oGrid.Columns var_Columns.Add("Name").Width = 96 var_Columns.Add("Title").Width = 96 var_Columns.Add("City") var_Items = oGrid.Items h0 = var_Items.AddItem("Nancy Davolio") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Andrew Fuller") var_Items.CellValue(h0,1,"Vice President, Sales") var_Items.CellValue(h0,2,"Tacoma") var_Items.SelectItem(h0,true) h0 = var_Items.AddItem("Janet Leverling") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Kirkland") h0 = var_Items.AddItem("Margaret Peacock") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Redmond") h0 = var_Items.AddItem("Steven Buchanan") var_Items.CellValue(h0,1,"Sales Manager") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Michael Suyama") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Robert King") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Laura Callahan") var_Items.CellValue(h0,1,"Inside Sales Coordinator") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Anne Dodsworth") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") oGrid.EndUpdate()
624	How can I specify that the list should include any of the seqeunces in the pattern OleObject oGrid,var_Columns,var_Items any h0 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.ColumnAutoResize = true oGrid.ContinueColumnScroll = false oGrid.FocusColumnIndex = 1 oGrid.MarkSearchColumn = false oGrid.SearchColumnIndex = 1 oGrid.FilterBarPromptVisible = 1 oGrid.FilterBarPromptType = 2 oGrid.FilterBarPromptPattern = "london seattle" var_Columns = oGrid.Columns var_Columns.Add("Name").Width = 96 var_Columns.Add("Title").Width = 96 var_Columns.Add("City") var_Items = oGrid.Items h0 = var_Items.AddItem("Nancy Davolio") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Andrew Fuller") var_Items.CellValue(h0,1,"Vice President, Sales") var_Items.CellValue(h0,2,"Tacoma") var_Items.SelectItem(h0,true) h0 = var_Items.AddItem("Janet Leverling") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Kirkland") h0 = var_Items.AddItem("Margaret Peacock") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Redmond") h0 = var_Items.AddItem("Steven Buchanan") var_Items.CellValue(h0,1,"Sales Manager") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Michael Suyama") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Robert King") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Laura Callahan") var_Items.CellValue(h0,1,"Inside Sales Coordinator") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Anne Dodsworth") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") oGrid.EndUpdate()
623	How can I specify that all sequences in the filter pattern must be included in the list OleObject oGrid,var_Columns,var_Items any h0 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.ColumnAutoResize = true oGrid.ContinueColumnScroll = false oGrid.FocusColumnIndex = 1 oGrid.MarkSearchColumn = false oGrid.SearchColumnIndex = 1 oGrid.FilterBarPromptVisible = 1 oGrid.FilterBarPromptType = 1 oGrid.FilterBarPromptPattern = "london manager" var_Columns = oGrid.Columns var_Columns.Add("Name").Width = 96 var_Columns.Add("Title").Width = 96 var_Columns.Add("City") var_Items = oGrid.Items h0 = var_Items.AddItem("Nancy Davolio") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Andrew Fuller") var_Items.CellValue(h0,1,"Vice President, Sales") var_Items.CellValue(h0,2,"Tacoma") var_Items.SelectItem(h0,true) h0 = var_Items.AddItem("Janet Leverling") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Kirkland") h0 = var_Items.AddItem("Margaret Peacock") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Redmond") h0 = var_Items.AddItem("Steven Buchanan") var_Items.CellValue(h0,1,"Sales Manager") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Michael Suyama") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Robert King") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Laura Callahan") var_Items.CellValue(h0,1,"Inside Sales Coordinator") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Anne Dodsworth") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") oGrid.EndUpdate()
622	How do I change at runtime the filter prompt OleObject oGrid,var_Columns,var_Items any h0 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.ColumnAutoResize = true oGrid.ContinueColumnScroll = false oGrid.FocusColumnIndex = 1 oGrid.MarkSearchColumn = false oGrid.SearchColumnIndex = 1 oGrid.FilterBarPromptVisible = 1 oGrid.FilterBarPromptPattern = "london manager" var_Columns = oGrid.Columns var_Columns.Add("Name").Width = 96 var_Columns.Add("Title").Width = 96 var_Columns.Add("City") var_Items = oGrid.Items h0 = var_Items.AddItem("Nancy Davolio") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Andrew Fuller") var_Items.CellValue(h0,1,"Vice President, Sales") var_Items.CellValue(h0,2,"Tacoma") var_Items.SelectItem(h0,true) h0 = var_Items.AddItem("Janet Leverling") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Kirkland") h0 = var_Items.AddItem("Margaret Peacock") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Redmond") h0 = var_Items.AddItem("Steven Buchanan") var_Items.CellValue(h0,1,"Sales Manager") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Michael Suyama") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Robert King") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Laura Callahan") var_Items.CellValue(h0,1,"Inside Sales Coordinator") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Anne Dodsworth") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") oGrid.EndUpdate()
621	How do I specify to filter only a single column when using the filter prompt OleObject oGrid,var_Columns,var_Items any h0 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.ColumnAutoResize = true oGrid.ContinueColumnScroll = false oGrid.FocusColumnIndex = 1 oGrid.MarkSearchColumn = false oGrid.SearchColumnIndex = 1 oGrid.FilterBarPromptVisible = 1 oGrid.FilterBarPromptColumns = "2,3" oGrid.FilterBarPromptPattern = "london" var_Columns = oGrid.Columns var_Columns.Add("Name").Width = 96 var_Columns.Add("Title").Width = 96 var_Columns.Add("City") var_Items = oGrid.Items h0 = var_Items.AddItem("Nancy Davolio") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Andrew Fuller") var_Items.CellValue(h0,1,"Vice President, Sales") var_Items.CellValue(h0,2,"Tacoma") var_Items.SelectItem(h0,true) h0 = var_Items.AddItem("Janet Leverling") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Kirkland") h0 = var_Items.AddItem("Margaret Peacock") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Redmond") h0 = var_Items.AddItem("Steven Buchanan") var_Items.CellValue(h0,1,"Sales Manager") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Michael Suyama") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Robert King") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Laura Callahan") var_Items.CellValue(h0,1,"Inside Sales Coordinator") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Anne Dodsworth") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") oGrid.EndUpdate()
620	How do I change the prompt or the caption being displayed in the filter bar OleObject oGrid,var_Columns oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.ColumnAutoResize = true oGrid.ContinueColumnScroll = false oGrid.FocusColumnIndex = 1 oGrid.MarkSearchColumn = false oGrid.SearchColumnIndex = 1 oGrid.FilterBarPromptVisible = 1 oGrid.FilterBarPrompt = "changed" var_Columns = oGrid.Columns var_Columns.Add("Name").Width = 96 var_Columns.Add("Title").Width = 96 var_Columns.Add("City") oGrid.EndUpdate()
619	How do I enable the filter prompt feature OleObject oGrid,var_Columns,var_Items any h0 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.ColumnAutoResize = true oGrid.ContinueColumnScroll = false oGrid.FocusColumnIndex = 1 oGrid.MarkSearchColumn = false oGrid.SearchColumnIndex = 1 oGrid.FilterBarPromptVisible = 1 var_Columns = oGrid.Columns var_Columns.Add("Name").Width = 96 var_Columns.Add("Title").Width = 96 var_Columns.Add("City") var_Items = oGrid.Items h0 = var_Items.AddItem("Nancy Davolio") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Andrew Fuller") var_Items.CellValue(h0,1,"Vice President, Sales") var_Items.CellValue(h0,2,"Tacoma") var_Items.SelectItem(h0,true) h0 = var_Items.AddItem("Janet Leverling") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Kirkland") h0 = var_Items.AddItem("Margaret Peacock") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"Redmond") h0 = var_Items.AddItem("Steven Buchanan") var_Items.CellValue(h0,1,"Sales Manager") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Michael Suyama") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Robert King") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") h0 = var_Items.AddItem("Laura Callahan") var_Items.CellValue(h0,1,"Inside Sales Coordinator") var_Items.CellValue(h0,2,"Seattle") h0 = var_Items.AddItem("Anne Dodsworth") var_Items.CellValue(h0,1,"Sales Representative") var_Items.CellValue(h0,2,"London") oGrid.EndUpdate()
618	How can I control the colors that can be applied to an EBN part /begin event Change(long Item,long ColIndex,any NewValue) - Occurs when the user changes the cell's content./ /* OleObject var_Items oGrid = ole_1.Object var_Items = oGrid.Items var_Items.ItemBackColor(var_Items.FirstVisibleItem,NewValue) / /end event Change/ OleObject oGrid,var_Appearance,var_Column,var_Column1,var_Columns,var_Editor,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() var_Appearance = oGrid.VisualAppearance var_Appearance.Add(2,"c:\exontrol\images\normal.ebn") var_Appearance.Add(1,"CP:2 10 3 -10 -5") oGrid.SelBackColor = oGrid.BackColor oGrid.SelForeColor = oGrid.ForeColor oGrid.ScrollBySingleLine = true oGrid.TreeColumnIndex = -1 var_Columns = oGrid.Columns var_Column = var_Columns.Add("Test") var_Column.Width = 32 var_Column1 = var_Columns.Add("RGB") var_Editor = var_Column1.Editor var_Editor.EditType = 20 var_Editor.Option(44,255) var_Editor.Option(41,-60) var_Items = oGrid.Items h = var_Items.AddItem("") var_Items.CellHAlignment(h,0,1) var_Items.ItemDivider(h,0) var_Items.ItemBackColor(h,16777216 /0x1000000*/) var_Items.ItemHeight(h,36) var_Items.SelectableItem(h,false) h = var_Items.InsertItem(0,1,"Red") var_Items.CellValue(h,1,255) h = var_Items.InsertItem(0,255,"Green") var_Items.CellValue(h,1,255) h = var_Items.InsertItem(0,65536,"Blue") var_Items.CellValue(h,1,255) oGrid.EndUpdate()
617	I know this is fairly basic, but could you send me a sample that places a tree in the first column OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.LinesAtRoot = -1 oGrid.Columns.Add("heading") var_Items = oGrid.Items h = var_Items.AddItem("Parent 1") var_Items.InsertItem(h,,"Child A") var_Items.InsertItem(var_Items.InsertItem(h,,"Child B"),,"GrandChild C") var_Items.ExpandItem(h,true) h = var_Items.AddItem("Parent 2") var_Items.InsertItem(h,,"Child D") var_Items.InsertItem(h,,"Child E") var_Items.ExpandItem(h,true) oGrid.EndUpdate()
616	How can I get the caption of focused item /begin event SelectionChanged() - Fired after a new item has been selected./ /* OleObject var_Items oGrid = ole_1.Object var_Items = oGrid.Items MessageBox("Information",string( "Handle" )) MessageBox("Information",string( String(var_Items.FocusItem) )) MessageBox("Information",string( "Caption" )) MessageBox("Information",string( var_Items.CellCaption(var_Items.FocusItem,0) )) / /end event SelectionChanged*/ OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.LinesAtRoot = -1 oGrid.Columns.Add("Items") var_Items = oGrid.Items h = var_Items.AddItem("R1") var_Items.InsertItem(h,,"Cell 1.1") var_Items.InsertItem(h,,"Cell 1.2") var_Items.ExpandItem(h,true) h = var_Items.AddItem("R2") var_Items.InsertItem(h,,"Cell 2.1") var_Items.InsertItem(h,,"Cell 2.2") var_Items.ExpandItem(h,true) oGrid.EndUpdate()
615	How can I get the caption of selected item /begin event SelectionChanged() - Fired after a new item has been selected./ /* OleObject var_Items oGrid = ole_1.Object var_Items = oGrid.Items MessageBox("Information",string( "Handle" )) MessageBox("Information",string( String(var_Items.SelectedItem(0)) )) MessageBox("Information",string( "Caption" )) MessageBox("Information",string( var_Items.CellCaption(var_Items.SelectedItem(0),0) )) / /end event SelectionChanged*/ OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.LinesAtRoot = -1 oGrid.Columns.Add("Items") var_Items = oGrid.Items h = var_Items.AddItem("R1") var_Items.InsertItem(h,,"Cell 1.1") var_Items.InsertItem(h,,"Cell 1.2") var_Items.ExpandItem(h,true) h = var_Items.AddItem("R2") var_Items.InsertItem(h,,"Cell 2.1") var_Items.InsertItem(h,,"Cell 2.2") var_Items.ExpandItem(h,true) oGrid.EndUpdate()
614	Is it possible to let users selects cells as in Excel OleObject oGrid,var_Column,var_Column1,var_Column2,var_Columns,var_Items any h,h1 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.FullRowSelect = 1 oGrid.SingleSel = false oGrid.ReadOnly = -1 oGrid.MarkSearchColumn = false oGrid.ShowFocusRect = false oGrid.LinesAtRoot = -1 oGrid.SelForeColor = RGB(0,0,0) oGrid.SelBackColor = RGB(200,225,242) var_Columns = oGrid.Columns var_Columns.Add("A") var_Column = var_Columns.Add("B") var_Column.AllowSizing = false var_Column.Width = 24 var_Column1 = var_Columns.Add("C") var_Column1.AllowSizing = false var_Column1.Width = 24 var_Column1.Def(0,1) var_Column1.PartialCheck = true var_Column2 = var_Columns.Add("D") var_Column2.AllowSizing = false var_Column2.Width = 24 var_Column2.Def(1,1) var_Items = oGrid.Items h = var_Items.InsertItem(,,"Group 1") h1 = var_Items.InsertItem(h,,16) var_Items.CellValue(h1,1,17) h1 = var_Items.InsertItem(h,,2) var_Items.CellValue(h1,1,11) h1 = var_Items.InsertItem(h,,2) var_Items.ItemBackColor(h1,RGB(240,240,240)) var_Items.CellValue(h1,1,9) var_Items.ExpandItem(h,true) h = var_Items.InsertItem(,,"Group 2") var_Items.CellValueFormat(h,2,1) h1 = var_Items.InsertItem(h,,16) var_Items.CellValue(h1,1,9) h1 = var_Items.InsertItem(h,,12) var_Items.CellValue(h1,1,11) h1 = var_Items.InsertItem(h,,2) var_Items.CellValue(h1,1,2) var_Items.ExpandItem(h,true) var_Items.SelectItem(h,true) oGrid.EndUpdate()
613	Is it possible to change the style for the vertical or horizontal grid lines, in the list area OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.DrawGridLines = -1 oGrid.GridLineStyle = 33 /exGridLinesVSolid \| exGridLinesHDot4/ oGrid.Columns.Add("C1") oGrid.Columns.Add("C2") oGrid.Columns.Add("C3") var_Items = oGrid.Items h = var_Items.AddItem("Item 1") var_Items.CellValue(h,1,"SubItem 1.2") var_Items.CellValue(h,2,"SubItem 1.3") h = var_Items.AddItem("Item 2") var_Items.CellValue(h,1,"SubItem 2.2") var_Items.CellValue(h,2,"SubItem 2.3") oGrid.EndUpdate()
612	Is it possible to change the style for the grid lines, for instance to be solid not dotted OleObject oGrid oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.DrawGridLines = -1 oGrid.GridLineStyle = 48 oGrid.Columns.Add("Column") oGrid.EndUpdate()
611	I have some buttons added on the control's scroll bar, how can I can know when the button is being clicked /begin event ScrollButtonClick(long ScrollBar,long ScrollPart) - Occurs when the user clicks a button in the scrollbar./ /* oGrid = ole_1.Object MessageBox("Information",string( String(ScrollBar) )) MessageBox("Information",string( String(ScrollPart) )) / /end event ScrollButtonClick*/ OleObject oGrid oGrid = ole_1.Object oGrid.ScrollPartVisible(1,32768,true) oGrid.ScrollPartVisible(1,16384,true) oGrid.ScrollPartVisible(1,1,true) oGrid.ScrollPartVisible(1,2,true) oGrid.ScrollBars = 5
610	How do I get notified once the user clicks a hyperlink created using the anchor HTML tag /begin event AnchorClick(string AnchorID,string Options) - Occurs when an anchor element is clicked./ /* oGrid = ole_1.Object MessageBox("Information",string( String(AnchorID) )) MessageBox("Information",string( String(Options) )) / /end event AnchorClick*/ OleObject oGrid,var_Items oGrid = ole_1.Object oGrid.Columns.Add("Default").Def(17,1) var_Items = oGrid.Items var_Items.AddItem("This is a link: <aex.com;1>www.exontrol.com</a>") var_Items.AddItem("This is a link: <aex.net;2>www.exontrol.net</a>")
609	Is it possible to start editing a cell when double click it /begin event DblClick(integer Shift,long X,long Y) - Occurs when the user dblclk the left mouse button over an object./ /* oGrid = ole_1.Object oGrid.Edit() / /end event DblClick*/ OleObject oGrid,var_Items,var_Items1 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.AutoEdit = false oGrid.MarkSearchColumn = false oGrid.Columns.Add("Edit1").Editor.EditType = 1 oGrid.Columns.Add("Edit2").Editor.EditType = 1 var_Items = oGrid.Items var_Items.CellValue(var_Items.AddItem(1),1,2) var_Items1 = oGrid.Items var_Items1.CellValue(var_Items1.AddItem(3),1,4) oGrid.EndUpdate()
608	Is it possible to disable standard single-click behavior for this column, so I manually could call Edit() when needed /begin event DblClick(integer Shift,long X,long Y) - Occurs when the user dblclk the left mouse button over an object./ /* oGrid = ole_1.Object oGrid.Edit() / /end event DblClick*/ OleObject oGrid,var_Items,var_Items1 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.AutoEdit = false oGrid.MarkSearchColumn = false oGrid.Columns.Add("Edit1").Editor.EditType = 1 oGrid.Columns.Add("Edit2").Editor.EditType = 1 var_Items = oGrid.Items var_Items.CellValue(var_Items.AddItem(1),1,2) var_Items1 = oGrid.Items var_Items1.CellValue(var_Items1.AddItem(3),1,4) oGrid.EndUpdate()
607	How can I get or restore the old or previously value for the cell being changed /begin event Change(long Item,long ColIndex,any NewValue) - Occurs when the user changes the cell's content./ /* oGrid = ole_1.Object MessageBox("Information",string( "Old-Value:" )) MessageBox("Information",string( String(oGrid.Items.CellValue(Item,ColIndex)) )) MessageBox("Information",string( "New-Value:" )) MessageBox("Information",string( String(NewValue) )) / /end event Change*/ OleObject oGrid,var_Items,var_Items1 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.MarkSearchColumn = false oGrid.Columns.Add("Edit1").Editor.EditType = 1 oGrid.Columns.Add("Edit2").Editor.EditType = 1 var_Items = oGrid.Items var_Items.CellValue(var_Items.AddItem(1),1,2) var_Items1 = oGrid.Items var_Items1.CellValue(var_Items1.AddItem(3),1,4) oGrid.EndUpdate()
606	How can I get the item from the cursor /begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse./ /* any h oGrid = ole_1.Object h = oGrid.ItemFromPoint(-1,-1,c,hit) MessageBox("Information",string( "Handle" )) MessageBox("Information",string( String(h) )) MessageBox("Information",string( "Index" )) MessageBox("Information",string( String(oGrid.Items.ItemToIndex(h)) )) / /end event MouseMove*/ OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.LinesAtRoot = -1 oGrid.DrawGridLines = 1 oGrid.Columns.Add("Items") var_Items = oGrid.Items h = var_Items.AddItem("R1") var_Items.InsertItem(h,,"Cell 1.1") var_Items.InsertItem(h,,"Cell 1.2") var_Items.ExpandItem(h,true) h = var_Items.AddItem("R2") var_Items.InsertItem(h,,"Cell 2.1") var_Items.InsertItem(h,,"Cell 2.2") var_Items.ExpandItem(h,true) oGrid.EndUpdate()
605	How can I get the column from the cursor, not only in the header /begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse./ /* oGrid = ole_1.Object MessageBox("Information",string( String(oGrid.ColumnFromPoint(-1,0)) )) / /end event MouseMove*/ OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.LinesAtRoot = -1 oGrid.Columns.Add("P1") oGrid.Columns.Add("P2") oGrid.DrawGridLines = -1 var_Items = oGrid.Items h = var_Items.AddItem("R1") var_Items.CellValue(h,1,"R2") var_Items.CellValue(var_Items.InsertItem(h,,"Cell 1.1"),1,"Cell 1.2") var_Items.CellValue(var_Items.InsertItem(h,,"Cell 2.1"),1,"Cell 2.2") var_Items.ExpandItem(h,true) oGrid.EndUpdate()
604	How can I get the column from the cursor /begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse./ /* oGrid = ole_1.Object MessageBox("Information",string( String(oGrid.ColumnFromPoint(-1,-1)) )) / /end event MouseMove*/ OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.LinesAtRoot = -1 oGrid.DrawGridLines = -1 oGrid.Columns.Add("P1") oGrid.Columns.Add("P2") var_Items = oGrid.Items h = var_Items.AddItem("R1") var_Items.CellValue(h,1,"R2") var_Items.CellValue(var_Items.InsertItem(h,,"Cell 1.1"),1,"Cell 1.2") var_Items.CellValue(var_Items.InsertItem(h,,"Cell 2.1"),1,"Cell 2.2") var_Items.ExpandItem(h,true) oGrid.EndUpdate()
603	How can I get the cell's caption from the cursor /begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse./ /* any h oGrid = ole_1.Object h = oGrid.ItemFromPoint(-1,-1,c,hit) MessageBox("Information",string( oGrid.Items.CellCaption(h,c) )) / /end event MouseMove*/ OleObject oGrid,var_Items any h oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.LinesAtRoot = -1 oGrid.Columns.Add("Items") var_Items = oGrid.Items h = var_Items.AddItem("R1") var_Items.InsertItem(h,,"Cell 1.1") var_Items.InsertItem(h,,"Cell 1.2") var_Items.ExpandItem(h,true) h = var_Items.AddItem("R2") var_Items.InsertItem(h,,"Cell 2.1") var_Items.InsertItem(h,,"Cell 2.2") var_Items.ExpandItem(h,true) oGrid.EndUpdate()
602	How can I customize the items based on the values in the cells OleObject oGrid,var_Column,var_Column1,var_Column2,var_Column3,var_Columns,var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormat2,var_ConditionalFormats,var_Items any h,h1 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.MarkSearchColumn = false var_ConditionalFormats = oGrid.ConditionalFormats var_ConditionalFormat = var_ConditionalFormats.Add("%1 >4") var_ConditionalFormat.Bold = true var_ConditionalFormat.StrikeOut = true var_ConditionalFormat.ForeColor = RGB(255,0,0) var_ConditionalFormat.ApplyTo = -1 var_ConditionalFormat1 = var_ConditionalFormats.Add("%2 > 4") var_ConditionalFormat1.Bold = true var_ConditionalFormat1.StrikeOut = true var_ConditionalFormat1.ForeColor = RGB(255,0,0) var_ConditionalFormat1.ApplyTo = 2 /*0x2 \| / var_ConditionalFormat2 = var_ConditionalFormats.Add("%3 > 4") var_ConditionalFormat2.Bold = true var_ConditionalFormat2.StrikeOut = true var_ConditionalFormat2.ForeColor = RGB(255,0,0) var_ConditionalFormat2.ApplyTo = 3 /0x3 \| */ var_Columns = oGrid.Columns var_Columns.Add("Name") var_Column = var_Columns.Add("A") var_Column.SortType = 1 var_Column.AllowSizing = false var_Column.Width = 36 var_Column.FormatColumn = "len(value) ? value + ' +'" var_Column.Editor.EditType = 4 var_Column1 = var_Columns.Add("B") var_Column1.SortType = 1 var_Column1.AllowSizing = false var_Column1.Width = 36 var_Column1.FormatColumn = "len(value) ? value + ' +'" var_Column1.Editor.EditType = 4 var_Column2 = var_Columns.Add("C") var_Column2.SortType = 1 var_Column2.AllowSizing = false var_Column2.Width = 36 var_Column2.FormatColumn = "len(value) ? value + ' ='" var_Column2.Editor.EditType = 4 var_Column3 = var_Columns.Add("A+B+C") var_Column3.SortType = 1 var_Column3.AllowSizing = false var_Column3.Width = 64 var_Column3.ComputedField = "%1+%2+%3" var_Column3.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)" var_Column3.Def(17,1) var_Items = oGrid.Items h = var_Items.AddItem("Root") var_Items.CellValueFormat(h,4,2) h1 = var_Items.InsertItem(h,,"Child 1") var_Items.CellValue(h1,1,7) var_Items.CellValue(h1,2,3) var_Items.CellValue(h1,3,1) h1 = var_Items.InsertItem(h,,"Child 2") var_Items.CellValue(h1,1,2) var_Items.CellValue(h1,2,5) var_Items.CellValue(h1,3,12) h1 = var_Items.InsertItem(h,,"Child 3") var_Items.CellValue(h1,1,2) var_Items.CellValue(h1,2,2) var_Items.CellValue(h1,3,4) h1 = var_Items.InsertItem(h,,"Child 4") var_Items.CellValue(h1,1,2) var_Items.CellValue(h1,2,9) var_Items.CellValue(h1,3,4) var_Items.ExpandItem(h,true) oGrid.EndUpdate()
601	Is it is possible to have a column computing values from other columns OleObject oGrid,var_Column,var_Column1,var_Column2,var_Column3,var_Columns,var_Items any h,h1 oGrid = ole_1.Object oGrid.BeginUpdate() oGrid.MarkSearchColumn = false var_Columns = oGrid.Columns var_Columns.Add("Name") var_Column = var_Columns.Add("A") var_Column.SortType = 1 var_Column.AllowSizing = false var_Column.Width = 36 var_Column.FormatColumn = "len(value) ? value + ' +'" var_Column.Editor.EditType = 4 var_Column1 = var_Columns.Add("B") var_Column1.SortType = 1 var_Column1.AllowSizing = false var_Column1.Width = 36 var_Column1.FormatColumn = "len(value) ? value + ' +'" var_Column1.Editor.EditType = 4 var_Column2 = var_Columns.Add("C") var_Column2.SortType = 1 var_Column2.AllowSizing = false var_Column2.Width = 36 var_Column2.FormatColumn = "len(value) ? value + ' ='" var_Column2.Editor.EditType = 4 var_Column3 = var_Columns.Add("A+B+C") var_Column3.SortType = 1 var_Column3.AllowSizing = false var_Column3.Width = 64 var_Column3.ComputedField = "%1+%2+%3" var_Column3.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)" var_Column3.Def(17,1) var_Items = oGrid.Items h = var_Items.AddItem("Root") var_Items.CellValueFormat(h,4,2) h1 = var_Items.InsertItem(h,,"Child 1") var_Items.CellValue(h1,1,7) var_Items.CellValue(h1,2,3) var_Items.CellValue(h1,3,1) h1 = var_Items.InsertItem(h,,"Child 2") var_Items.CellValue(h1,1,2) var_Items.CellValue(h1,2,5) var_Items.CellValue(h1,3,12) h1 = var_Items.InsertItem(h,,"Child 3") var_Items.CellValue(h1,1,2) var_Items.CellValue(h1,2,2) var_Items.CellValue(h1,3,4) h1 = var_Items.InsertItem(h,,"Child 4") var_Items.CellValue(h1,1,2) var_Items.CellValue(h1,2,9) var_Items.CellValue(h1,3,4) var_Items.ExpandItem(h,true) oGrid.EndUpdate()